home *** CD-ROM | disk | FTP | other *** search
- 2 POKE631,82:POKE632,85:POKE633,78:POKE634,54:POKE635,13:REM" RUN6
- 4 [151]198,5:[159]15,9,15,"I0":[128]:" SOME TURBO CART. BREAK WITH _E9"
- 6 [160]15:D[178]8:[139](ST [175] 191)[178]0 [167]D[178]9
- 8 :
- 100 [143]" PRINT USER GUIDE 23-OCT-92
- 110 :
- 120 _E8:UG$="USER GUIDE":REM" FILE TO PRINT
- 130 F$[178]"HINT & TIPS.PIC":HT[178]160[172]256:PL[178]6:[143]" PICTURE OF PL LINES
- 140 H1$=" [207][208][197][206] [211][217][211][212][197][205]":H2$=" [203][193]43/61":REM" HEADLINES
- 150 :
- 160 ADR[178][194](776)[170]256[172][194](777)[171]100:BIT[178][194](ADR[170]1607):MODE[178][194](ADR[170]227)
- 170 [139] BIT[179]10 [167] BIT[178]6:LM[178]10:GM[178]30:[137]190:[143]" 90 CHR/LINE
- 180 BIT=76-(BIT>128)*128:LM=15:GM=22:REM" 120 CHR/LINE
- 190 _G GM,HT[173]256,PL:[143]"SET GRAPHIC.PIC
- 200 IF MODE>1 THEN READ A,X:FORX=0 TO A:READ A$:NEXT:GOTO220
- 210 GOSUB5000:MODE=2-(NC=2):REM" 2 FOR STD ASCII, 3 FOR PET ASCII
- 220 LM$[178][199](LM):L1$[178][199](1):RM$[178][199](136):[159] 4,4,7
- 230 [141]5000:[153]" (null)(null)(null)/(null)(null)(null)(null) WAIT IF NO RESPONS FROM PRINTER"
- 240 _C3:[152]4,""[170][199](15);:_C MODE:[143] "CHR$(15) MAY NOT BE ACCEPTED IN _C2
- 250 ON NC GOTO260,270,280
- 260 L$="]"+LM$+RM$:PRINT#4,"]"+L1$+RM$:GOTO280
- 270 L$="L"+LM$:PRINT#4,"L"+L1$
- 280 CR$=CHR$(13):CH$="EXCLUSIVE.CHR"
- 290 PRINT#4,CR$;CR$;CR$;CR$:_B1 H1$
- 300 PRINT#4,CR$;CR$;CR$;CR$;CR$:_B1 H2$:PRINT#4,L$+CHR$(12);
- 310 PRINT"[147][208][210][197][211][211] [198]7 [146] TO STOP PRINTING!":PRINT" [210][213][206]/[211][212][207][208] [146] BREAK.
- 320 [153]"(null)OADING: (null)ORSK CHR":_X"NORSK CHR",CH$D
- 330 [139](ST [175] 191)[179][177]0 [175] D[178]9 [167] [153]"ONON":_E9:[153]"ONONON":_E8:_X,CH$8
- 340 [139](ST [175] 191)[179][177]0 [167][153]:_E8:[128]
- 350 _X"RELOCATE LOAD",F$,HT,D
- 360 [139](ST [175] 191)[179][177]0 [175] D[178]9 [167]:_E9:[153]"ONONON":_E8:_X,F$,HT,8
- 370 _C0,BIT:_X"VIEW-FILE"D
- 380 [153] [199](14);" (null)EALIGN TOP OF PAPER TO PRINT-HEAD."
- 390 [153] [166]46);"(null)RESS (null)(null)ATNLENVAL WAIT WHEN READY!CONT":[151] 198,0
- 400 [161] A$:[139] A$[178][199](136) [167] [144]
- 410 [139] A$[179][177]" " [167]400
- 420 [153]"(null)RINTING ";UG$;" WAIT FROM DEV";D:_X,UG$,4
- 430 [128]
- 5000 [143] " MENU RETURNS NC
- 5010 CL=15:CY=151:BL=144:REM" COLOURS
- 5020 [143]" IF NO>0 GOTO5050
- 5030 READ NO,NC:REM" DIM N$(NO),OP$(NO)
- 5040 [129] X[178]0 [164] NO:[135] OP$(X):[130]
- 5050 [153] [199](147);[199](14);
- 5060 [151] 53280,CL:[151] 53281,CL
- 5070 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
- 5080 [153]"FN (null)(null)VAL(null) CHR$(null)RIGHT$STR$VAL (null)(null) STR$(null)(null) (null)ATN(null)(null)RIGHT$(null) (null)(null)RIGHT$(null)(null)VAL(null) THEN
- 5090 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
- 5100 PRINT:PRINT CHR$(BL);" [195]HOOSE WITH [195][213][210][211][207][210] [146]
- 5110 X[178][184](8):[153] "
- 5120 FORX=1TONO:N$(X)=CHR$(CY)+CHR$(146+128*(X=NC))+CHR$(-BL*(X=NC)):NEXT
- 5130 PRINT TAB(43)CHR$(146+128*(NC>0))"[129] [210][197][212][213][210][206] [146] TO CONTINUE":PRINT""
- 5140 FORX=0TONO:PRINT TAB(19-LEN(OP$(X))/2)N$(X)OP$(X):NEXT
- 5150 GETC1$:IFC1$="" THEN NC=ABS(NC):NC=1+NC*SGN(NO-NC):GOTO5110
- 5160 IFC1$="[145]" THEN NC=ABS(NC):NC=NC-1-NO*SGN(NC-1)+NO:GOTO5110
- 5170 IFC1$<>CHR$(13)THENNC=-NC:GOTO5110
- 5180 NC=ABS(NC):RETURN
- 5190 DATA 2,1:REM" PRINTER MODE
- 5200 [131] "(null)RINTER OR HARD-WARE INTERFACE IS FOR:
- 5210 DATA "[211]TANDARD [193][211][195][201][201]
- 5220 [131] "LENOMMODORE ((null)VAL(null)-) ATN(null)LENRIGHT$RIGHT$
- 5230 DATA 3,3:REM "PRINTER TYPE
- 5240 [131] "(null)TATE PRINTER TYPE DUE TO LEFT MARGIN"
- 5250 [131] "RIGHT$PEEK(null)-PRINTER (VAL(null)LEN (null))
- 5260 DATA "[197]PSON-PRINTER ([197][211][195] L)
- 5270 [131] "STR$O'NT CARE!
-